home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 42 / PC Gamer IT CD 42 1-2.iso / ELINK / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 176 < prev    next >
Encoding:
Text File  |  1997-02-20  |  6.7 KB  |  172 lines
  1. // -----
  2. // UpgrInfo.txt = VDL176.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Upgrade Info dialog
  8.  
  9.  
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13.  
  14. //This section contains all localizable string constants for this VDL program. Be sure to 
  15. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  16. //You may also flatten multiline constants into a single line, if you prefer
  17.  
  18. #define aboutText1 "Welcome to Claris Home Page Lite"
  19. #define aboutText2 "Upgrade to Claris Home Page 2.0"
  20. #define aboutText3 "If you like Claris Home Page Lite, you may be interested"\
  21.                    " in trying out Claris Home Page."
  22. #define aboutText4 "Claris Home Page 2.0 has all of the same easy to use features"\
  23.                          " as Claris Home Page Lite plus additional features including:"\
  24.                          " HTML source code editing, the ability to create and edit frame"\
  25.                          " documents, forms, expanded libraries, additional templates,"\
  26.                          " spell checking and more!"
  27. #define aboutText5 "Find out more about Claris Home Page from our Web site:"
  28. #define aboutText6 "http://www.claris.com/chplite-upgrade"
  29. #define aboutText7 "or call:"
  30. #define aboutText8 "In US: (800) 544-8554"
  31. #define aboutText9 "In Canada: (800) 361-6075"
  32. #define aboutText10 "From other countries: +1 (408) 987-7000"
  33.  
  34. #define kLit1 "&Don't show this window again"
  35. #define kLit2 "&OK"
  36.  
  37. //Localized Fonts
  38. #if Platform_Mac
  39. #define AboutFont1 Font = {Geneva, 12, {Bold}}
  40. #define AboutFont2 Font = {Geneva, 10, {Plain}}
  41. #define LinkFont Font = {Geneva, 10, {Underline}}
  42. #define CheckBoxFont Font = {Geneva, 10, {Plain}}
  43. #else
  44. #define AboutFont1 Font = {Arial, 10, {Bold}}
  45. #define AboutFont2 Font = {Arial, 9, {Plain}}
  46. #define LinkFont Font = {Arial, 9, {Underline}}
  47. #define CheckBoxFont SystemFont
  48. #endif
  49.  
  50. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  51. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  52. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  53.  
  54.  
  55.  
  56. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  57. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  58. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  59.  
  60. //This section contains integer constants that are used to format this VDL program.
  61. //These are localizable - they only need to be changed if the localized strings 
  62. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  63.  
  64. //Widths of all the buttons, when visible. Note that the width of the dialog 
  65. //is computed without checking the button widths. This is so they 
  66. //automatically right-justify themselves. If you need to make the buttons wider than 
  67. //the dialog is allowing for, increase the kDialogMinWidth constant to add padding 
  68. //to the dialog. Alternately, you can increase the kInfoViewRightMargin constant 
  69. #define kButtonWidth 60
  70.  
  71. //See comment above. Minimum width of the dialog. Typically not used.
  72. #define kDialogMinWidth 0
  73.  
  74. //"Home Page Lite" logotype
  75. #define kHomePagePictLeftMargin 60
  76. #define kHomePagePictTopMargin 16
  77.  
  78. // CHP retail box graphic.
  79. #define kBoxGraphicLeftMargin 0
  80. #define kBoxGraphicTopMargin 25
  81.  
  82. // info view
  83. #define kInfoViewWidth     350
  84. #define kInfoViewLeftMargin 10
  85. #define kInfoViewTopMargin1 10
  86. #define kInfoViewParagraphSpace 5
  87.  
  88. //Width of the OK Button
  89. #if Platform_Mac
  90.     #define kOKButtonWidth 70
  91. #else
  92.     #define kOKButtonWidth 100
  93. #endif
  94. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  95. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  96. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  97.  
  98. //No further localizable data past this point
  99.  
  100. /************************** END LOCALIZABLE DATA ***************************************************/
  101. /************************** END LOCALIZABLE DATA ***************************************************/
  102. /************************** END LOCALIZABLE DATA ***************************************************/
  103.  
  104. // colors
  105. #define SplashColor White
  106. #define LinkColor Blue
  107.  
  108. // command codes
  109. #define ccOK  1071
  110.  
  111.  
  112. Margin(0, 0, 10, 10, BackColor = SplashColor)
  113.     VList()
  114.         {
  115.         Spacer(Height = 0, Width = kDialogMinWidth);
  116.         
  117.         Margin(kHomePagePictLeftMargin, kHomePagePictTopMargin, 0, 0)
  118.         PICT(15021, DontMap); // big text: "Claris Home Page Lite"
  119.                 
  120.         HList()
  121.             {
  122.             Margin(kBoxGraphicLeftMargin, kBoxGraphicTopMargin, 0, 0)
  123.             PICT(15022, DontMap);
  124.  
  125.             VList()
  126.                 {
  127.                 Margin(kInfoViewLeftMargin, kInfoViewTopMargin1, 0, 0)
  128.                 Switch(showCheckBox)
  129.                     {
  130.                     case 1:
  131.                         StaticText(aboutText1, Alignment = Left, Width = kInfoViewWidth, AboutFont1);
  132.                     case 0:
  133.                     default: 
  134.                         StaticText(aboutText2, Alignment = Left, Width = kInfoViewWidth, AboutFont1);
  135.                     }
  136.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  137.                 StaticText(aboutText3, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  138.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  139.                 StaticText(aboutText4, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  140.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  141.                 StaticText(aboutText5, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  142.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  143.                 StaticText(aboutText6, Alignment = Left, Width = kInfoViewWidth, LinkFont);
  144.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  145.                 StaticText(aboutText7, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  146.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  147.                 StaticText(aboutText8, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  148.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  149.                 StaticText(aboutText9, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  150.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  151.                 StaticText(aboutText10, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  152.  
  153.                 Margin(20, 20, 0, 0)
  154.                 Switch(showCheckBox)
  155.                     {
  156.                     case 1:
  157.                         CheckBox(kLit1, skipUpgradeInfoDialog, CheckBoxFont);
  158.                     default: 
  159.                         Spacer(Height = 0, Width = 0);
  160.                     }
  161.             
  162.                 }            
  163.             }
  164.         Margin(0, 0, 0, 0)
  165.         HList(Width = UseParent)
  166.             {
  167.             Spacer(Width = UseParent, Height = 0);        
  168.             DefaultButton( kLit2, ccOK, "None", Width = kOKButtonWidth);
  169.             }                
  170.         } //Main List
  171.  
  172.